home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00005_Script_gestion des équerres < prev    next >
Text File  |  2002-09-19  |  2KB  |  65 lines
  1. -- gestion des Θquerres
  2. global menusActifs, menuOuvert,pisteCoinHG, pisteCoinHD, pisteCoinBG, pisteCoinBD
  3. global ouvreMenuHG,fermeMenuHG, menuFermeHG, pisteMenuHG
  4. global ouvreMenuHD,fermeMenuHD, menuFermeHD, pisteMenuHD
  5. global ouvreMenuBG,fermeMenuBG, menuFermeBG, pisteMenuBG
  6. global ouvreMenuBD,fermeMenuBD, menuFermeBD, pisteMenuBD
  7.  
  8. on coinsOff
  9.   if menuOuvert<>0 then
  10.     menu = menuOuvert
  11.     -- fermeture du menu ouvert
  12.     case menu of
  13.       "HG": -- le menu Θquerre jaune est dΘroulΘ
  14.         validMHG=value(member("selectMenus0").line[1].word[1])
  15.         fermeMenuHG=1
  16.         repeat while menuFermeHG<>1
  17.           updateStage
  18.         end repeat
  19.         masquerPistes pisteMenuHG
  20.         
  21.       "HD": -- le menu Θquerre verte est dΘroulΘ
  22.         validMHD=value(word 1 of line 2 of field "selectMenus0")
  23.         fermeMenuHD=1
  24.         repeat while menuFermeHD<>1
  25.           updateStage
  26.         end repeat
  27.         masquerPistes pisteMenuHD
  28.         
  29.       "BG": -- le menu Θquerre bleue est dΘroulΘ
  30.         validMBG=value(word 1 of line 3 of field "selectMenus0")
  31.         fermeMenuBG=1
  32.         repeat while menuFermeBG<>1
  33.           updateStage
  34.         end repeat
  35.         masquerPistes pisteMenuBG
  36.         
  37.       "BD": -- le menu Θquerre rouge est dΘroulΘ
  38.         validMBD=value(word 1 of line 4 of field "selectMenus0")
  39.         fermeMenuBD=1 -- commande la fermeture du menu
  40.         repeat while menuFermeBD<>1
  41.           updateStage
  42.         end repeat
  43.         masquerPistes pisteMenuBD
  44.     end case
  45.     
  46.     menuOuvert = 0
  47.     updateStage
  48.   end if
  49.   -- dΘsactivation des Θquerres
  50.   spritesOn pisteCoinHG, pisteCoinHD, pisteCoinBG, pisteCoinBD
  51.   sprite(pisteCoinHG).memberNum = member("coinHG0").number
  52.   sprite(pisteCoinBG).memberNum = member("coinBG0").number
  53.   sprite(pisteCoinHD).memberNum = member("coinHD0").number
  54.   sprite(pisteCoinBD).memberNum = member("coinBD0").number
  55.   menusActifs=0
  56. end
  57.  
  58. on coinsOn
  59.   sprite(pisteCoinHG).memberNum = member("coinHG").number
  60.   sprite(pisteCoinBG).memberNum = member("coinBG").number
  61.   sprite(pisteCoinHD).memberNum = member("coinHD").number
  62.   sprite(pisteCoinBD).memberNum = member("coinBD").number
  63.   razMenus
  64.   menusActifs=1
  65. end